The TIWProgressBar is the IntraWeb equivalent of the TProgressBar from VCL.
TIWProgressBar = class(TIWCustomControl)
Properties
property BGColor: TIWColor
Use this property to set the background color of the control.
property Percent: Integer;
Use this property to indicate the current percentual shown in the progress bar. The value goes from 0 to 100.
property ShowText: Boolean;
Use this property to indicate if the current Percent value will be shown inside the control's area.
procedure TformThreaded.IWTimer1Timer(Sender: TObject); begin if FThread <> nil then begin IWProgressBar1.Percent := FThread.PercentComplete; lablPercentComplete.Caption := 'Percent Complete: ' + IntToStr(IWProgressBar1.Percent) + '%'; if FThread.Terminated then begin linkStopClick(Sender); end; end; end;
|